perm filename OOO.FAI[TMP,LCS]1 blob
sn#138840 filedate 1975-01-07 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE OO
C00009 ENDMK
C⊗;
TITLE OO
EXTERNAL JOBDDT,JOBOPC
OA←14
N←15
INT: HRRZI N,IOA
STAR: RESET
CLRBFI
OUTSTR [ASCIZ/*/]
INCHWL 7
CAIN 7,15
JRST STAR
CAIN 7,612
JRST DDTST
HRRZI 10,(N)
INLIN: HRRZM 7,(10)
ADDI 10,2
INCHRS 7
CAIA
JRST INLIN
SUBI 10,4
HRR 7,2(10)
SETZM OUTFLG#
TRNE 7,600
SETOM OUTFLG
MAIN: HRRZI OA,IOA
HRRZM N,CEX#
FDEQ: MOVE 4,(OA)
HRRZI 5,(N)
LKMO: CAMN 4,(5)
JRST EQU
ADIN: ADDI 5,2
CAIGE 5,(10)
JRST LKMO
ADDI OA,2
CAIGE OA,(N)
JRST FDEQ
HRR OA,CEX
ADDI N,2
CAIGE N,(10)
JRST FDEQ
JRST BACK
EQU: HRRZ 11,OA
CAILE 10,2(5)
CAIG N,2(OA)
JRST CKLA
MOVE 6,2(OA)
CAMN 6,2(5)
HRRI 11,2(OA)
CKLA: CAIGE 5,2(N)
JRST MVM
HRR 6,-2(5)
CAIE OA,2(6)
JRST MVM
HRRZI 6,2
CAIE 11,(OA)
ADDI 6,2
SUBI 5,2
HLL 11,(5)
JRST .+5
MVM: CAIN 11,(OA)
JRST ADIN
HRLI 11,(OA)
HRRZI 6,2
TLO 11,400000
MOVEM 11,(5)
AOBJP 11,
MOVEM 11,1(5)
ADDI 5,2
SUBI 10,(6)
ADDI 6,(5)
HRLI 6,(6)
HRRI 6,(5)
BLT 6,(10)
HRRZI 6,-2(10)
CAME 6,CEX
JRST LKMO
BACK: HRRZ 13,CEX
HRRZI 5,(13)
GXO: MOVE 7,(5)
HRRZI 6,(7)
TLNE 7,400000
JRST MINS
HRRI 11,(5)
HRLI 11,(5)
TLO 11,400000
MOVEM 11,1(5)
HRRZI 6,IOA
MINS: ADDI 6,2
CAIL 6,(13)
JRST NXO
CAME 7,(6)
JRST MINS
HRRI 11,1(6)
HRLI 11,(11)
TLO 11,400000
MOVEM 11,1(5)
NXO: ADDI 5,2
CAIGE 5,(10)
JRST GXO
CAIE 10,2(13)
JRST NOT1
SKIPL OUTFLG
JRST TROAWY
JUMPL 7,FIXIT
NOT1: HRLI 7,(13)
HRRI 7,-2(10)
TLO 7,400000
MOVE 11,7
AOBJP 11,
SKIPL OUTFLG
JRST GTO
ADDI 10,2
FIXIT: MOVE 7,TMP#
HRRZI 6,(7)
ADDI 6,2
CAIL 6,(13)
JRST NSEEN
CAME 7,(6)
JRST .-4
MOVEM 11,1(6)
TROAWY: SUBI 10,2
JRST GTO
NSEEN: MOVEM 7,(10)
MOVEM 11,1(10)
ADDI 10,2
GTO: MOVEM 7,TMP
HRRZI N,(10)
HRRZI OA,(N)
HRLI OA,700
HRRZI 13,(N)
ADDI 13,200
TLZ 11,400000
JRST GOUT
PUDO: HRLI 11,(4)
PUSH 13,11
MOVE 11,7
GOUT: HLRZ 4,11
MOR: MOVE 7,(4)
TLZE 7,400000
JRST PUDO
IDPB 7,OA
ADO: ADDI 4,2
CAIG 4,(11)
JRST MOR
TLNN 13,777777
JRST TYOUT
POP 13,11
HLRZ 4,11
JRST ADO
TYOUT: HRRZI 7,15
IDPB 7,OA
HRRZI 7,12
IDPB 7,OA
SETZ 7,
IDPB 7,OA
SKIPL OUTFLG
OUTSTR [ASCIZ/ /]
OUTSTR 1(N)
JRST STAR
DDTST: SKIPN JOBDDT
JRST STAR
HRRZI 11,STAR
MOVEM 11,JOBOPC
HRRZ 11,JOBDDT
JRST (11)
IOA: BLOCK 22000
END INT